#!/usr/bin/perl

use strict;

my $internal = {};

$internal = {
  "sub" => sub{
    print "Hi";
  },
  
  sub3 => sub{
    print "sub2";
  },
};

$internal->{sub3}();
$internal->{"sub"}();
